1 Q=PEEK(186):POKE820,Q:QA=PEEK(821):ONQAGOTO3,4,8
2 B=53280:PRINT"[147]":POKEB,0:POKEB+1,11:POKE646,15:GOTO100
3 POKE821,2:LOAD"KATZENSPRITES01*",Q,1
4 POKE821,3:LOAD"MSBSKATZE01*",Q,1
8 POKE45,0:POKE46,40:CLR:GOTO110
9 QP=30:OPEN4,4:OPEN5,4,6:CMD4:PRINT#5,CHR$(QP):CLOSE4:CLOSE5:END
11 Q$="KHT-BSKATZE":QV$="01":QT$=Q$+QV$:QD$="200501":RETURN
12 GOSUB11:PRINT"G-A 8/9?[145]":OPEN15,Q,15,"S:"+QT$:CLOSE15:SAVEQT$,Q:END
69 LC=INT(L/100):LL=L-(LC*100):FORX=LCTOLL:POKE781,X:SYS59903:NEXT:RETURN
100 PRINTTAB(11)"[158]BILDSCHIRMKATZE 01":PRINTTAB(12)"[155]2001  VON KAHATE"
102 FORI=0TO1500:NEXT
104 PRINTTAB(9)"[152]DATEIEN WERDEN GELADEN":PRINTTAB(14)"[144]BITTE WARTEN[152][145]"
109 POKE821,1:GOTO1
110 L=720:GOSUB69:PRINTTAB(10)"[144]WEITER MIT  <RETURN>[152]"
112 R$="":GETR$:IFR$<>CHR$(13)THEN112
150 L=724:GOSUB69
200 REM ---ZUFALLSVORGABEN---
210 Z=RND(-TI)
220 Z1=INT(RND(1)*2)
230 Z2=INT(RND(1)*15)
240 IFZ1>0ANDZ2>11THEN230
260 POKE822,Z1:POKE823,Z2
270 POKE824,109:POKE825,112
300 SYS9728:REM ---PRGSTART---
400 I=0
402 R$="":GETR$:IFR$=CHR$(13)THEN410
404 IFR$=CHR$(95)THEN999
406 I=I+1:ON-(I>=200)GOTO410:GOTO402
410 GOTO150
999 POKE198,0:POKE821,0:END